Erect Magazine 6

home *** CD-ROM | disk | FTP | other *** search

/ Erect Magazine 6 / Erect Magazine 6.iso / pc / photobr3.mmm / meta.txt < prev next >

Wrap

Text File | 1995-10-11 | 5.8 KB | 128 lines

Name ---- PhotoBr3□□Max: Strings ------ Macromedia Director Script Channel Commands -------------------- Global Config_G if item 2 of Config_G = 9 then set the colorDepth = 8 put 1 into item 2 of Config_G end if puppetSound 0 -- go to movie "Menu"set the castNum of sprite 2 = the number of cast "BlackBoad" go to "Quit"go to the framepuppetPalette 0QuitGlobal Config_G put 255/5*integer(item 3 of Config_G) into Volume_W set the volume of sound 1 = Volume_W updatestage -- puppetSound "PMBGM" if item 2 of Config_G = 1 then if machineType() < 256 and the colorDepth <= 8 then put 9 into item 2 of Config_G set the colorDepth = 16 end if -- go to "fullColor" end ifGlobal PhotoNo_G put 1 into PhotoNo_G -- unLoadCast ReadPictGlobal Photo_G,PhotoNo_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadCastGlobal Photo_G,PhotoNo_G if PhotoNo_G > 1 then put PhotoNo_G - 1 into PhotoNo_G else put Photo_G into PhotoNo_G end if -- unLoadCast ReadPictGlobal Photo_G,PhotoNo_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadPictGlobal PhotoNo_G put 1 into PhotoNo_G -- unLoadCast ReadPict -- go to the frame - 1puppetSound "PMBGM" -- play doneGlobal PhotoNo_G put 1 into PhotoNo_G -- unLoadCast ReadCastGlobal Photo_G,PhotoNo_G if PhotoNo_G > 1 then put PhotoNo_G - 1 into PhotoNo_G else put Photo_G into PhotoNo_G end if -- unLoadCast ReadCastGlobal PhotoNo_G put 1 into PhotoNo_G -- unLoadCast ReadCast -- go to the frame - 1Global Photo_G,PhotoNo_G if PhotoNo_G > 1 then put PhotoNo_G - 1 into PhotoNo_G else put Photo_G into PhotoNo_G end if -- unLoadCast ReadCast -- go to the frame - 1Global Photo_G,PhotoNo_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadCast -- go to the frame - 1puppetSound 0nothingset the castNum of sprite 2 = the number of cast "BlackBoad" updatestage -- go to "Menu"set the castNum of sprite 2 = the number of cast "BlackBoad" updatestage -- Quitset the castNum of sprite 2 = the number of cast "BlackBoad" puppetSound 0 play "8Panic"puppetSound 0 play "16Panic"Global Photo_G,PhotoNo_G if PhotoNo_G > 1 then put PhotoNo_G - 1 into PhotoNo_G else put Photo_G into PhotoNo_G end if -- unLoadCast ReadPict -- go to the frame - 1Global Photo_G,PhotoNo_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadPict -- go to the frame - 1Global PhotoNo_G put 1 into PhotoNo_G -- unLoadCast ReadPict Global Photo_G,PhotoNo_G if PhotoNo_G > 1 then put PhotoNo_G - 1 into PhotoNo_G else put Photo_G into PhotoNo_G end if -- unLoadCast ReadPict Global Photo_G,PhotoNo_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadPict Global PWtime_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadPict -- set the castNum of sprite 2 = the number of cast "PictCast" -- put ticks()+60*4 into PWtime_G go to the frame - 1puppetSound "PMBGM" ReadCast -- play donego to the frame + 1Global PWtime_G if ticks() > PWtime_G then go to the frame + 1 else go to the frame end ifGlobal PWtime_G if PhotoNo_G < Photo_G then put PhotoNo_G + 1 into PhotoNo_G else put 1 into PhotoNo_G end if -- unLoadCast ReadCast -- put ticks()+60*4 into PWtime_G go to the frame - 1puppetSprite 2,TRUE updatestage -- Global Photo_G,PhotoNo_G put 30 into Photo_G put 1 into PhotoNo_G -- ReadCast -- repeat with n = 3 to 23 set the visibility of sprite n = TRUE end repeat -- repeat with n = 14 to 23 set the visibility of sprite n = FALSE end repeatpuppetSprite 2,TRUE updatestage -- Global Photo_G,PhotoNo_G put 30 into Photo_G put 1 into PhotoNo_G -- ReadPict -- set the castNum of sprite 2 = the number of cast "PictCast" -- repeat with n = 3 to 23 set the visibility of sprite n = TRUE end repeat -- repeat with n = 14 to 23 set the visibility of sprite n = FALSE end repeatrepeat with n = 3 to 12 set the visibility of sprite n = FALSE end repeat -- repeat with n = 14 to 23 set the visibility of sprite n = TRUE end repeat updatestageGlobal PWtime_G put ticks()+60*2 into PWtime_G -- go to the frame + 1repeat with n = 3 to 12 set the visibility of sprite n = TRUE end repeat -- repeat with n = 14 to 23 set the visibility of sprite n = FALSE end repeat updatestagego to the frame - 1 vwci ---- 1025: □StageBackRGB 1026: PhotoPanelRGB 1027: □backRGB 1028: □frRGB 1029: □stopRGB 1030: □playRGB 1031: □playRGB 1032: □ffRGB 1033: □panicRGB 1034: □retRGB 1035: □quitRGB 1036: □handRGB 1037: □PictCast 1038: □PictCast256 1039: □PanicG 1040: □Loading 1041: □PMBGM 1042: BlackBoad 1089: StageBack 1090: PhotoPanel 1091: □back 1092: □fr 1093: □stop 1094: □play 1095: □play 1096: □ff 1097: □panic 1098: □ret 1099: □quit 1100: □hand 1101: □BtnPal 1153: □02 1154: □01 1155: □03 1156: □04 1157: □05 1158: □06 1159: □07 1160: □08 1161: □09 1162: □10 1163: □11 1164: □12 1165: □13 1166: □14 1167: □15 1168: □16 1169: □17 1170: □18 1171: □19 1172: □20 1173: □21 1174: □22 1175: □23 1176: □24 1177: □25 1178: □26 1179: □27 1180: □28 1181: □29 1182: □30 1185: PhotoPal1 1186: PhotoPal2 1187: PhotoPal3 1188: PhotoPal4 1189: PhotoPal5 1190: PhotoPal6 1191: PhotoPal7 1192: PhotoPal8 1193: PhotoPal9 1194: PhotoPal10 1195: PhotoPal11 1196: PhotoPal12 1197: PhotoPal13 1198: PhotoPal14 1199: PhotoPal15 1200: PhotoPal16 1201: PhotoPal17 1202: PhotoPal18 1203: PhotoPal19 1204: PhotoPal20 1205: PhotoPal21 1206: PhotoPal22 1207: PhotoPal23 1208: PhotoPal24 1209: PhotoPal25 1210: PhotoPal26 1211: PhotoPal27 1212: PhotoPal28 1213: PhotoPal29 1214: PhotoPal30